;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(DEFUN makeinsert (blockname inspoint xyzscale insangle inslayer /)
  (SETQ xscale (CAR xyzscale)
	yscale (CADR xyzscale)
	zscale (CADDR xyzscale)
  )
  (PROGN (SETQ elist (LIST (CONS 0 "INSERT")
                           (CONS 2 blockname)
                           (CONS 8 inslayer)
                           (CONS 10 inspoint)
                           (CONS 41 xscale)
                           (CONS 42 yscale)
                           (CONS 43 zscale)
			   (CONS 50 insangle)
                     ) ;_ end of list
         ) ;_ end of setq
         (ENTMAKE elist)
  ) ;_ end of progn
  (PRINC)
)